home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 153
/
153.d81
/
u.capture fix
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
10 poke53280,0:poke53281,0:printchr$(14)
20 print"[147][158] [195] [193] [208] [212] [213] [210] [197]"
30 print"[212]his [213]ltragem requires some set-up"
40 print"steps to be done before it will work"
50 print"properly. [198]ollow the steps in the"
55 print"[212]ext very carefully!!!"
60 print"[207]ption #1-[211]aves [205][204] [195]ode."
70 print"[207]ption #2-[210]enames [194]oot file and"
71 print" modifies 'capture.bas'."
100 print"[205]ake sure that the [215]rite-[208]rotect tab"
110 print"is not covered on the disk."
130 print"[212]o make the changes, [201]nsert your disk"
140 print"with [195]apture and [200]ires sketch 2"
150 print"in [196]rive #8 and [211]elect (1) or (2)."
152 print"[193]fter selecting, [196]o [206][207][212] touch the"
154 print"keyboard or open the disk drive door"
156 print"until the white [195]ursor appears!!!!!!"
160 geta$:ifa$=""then160
165 ifa$="1"then180
170 ifa$="2"then400
175 goto160
180 print"[147][211]aving '[195]apture.[205][204]'..."
190 sys57812"capture.ml",8
200 poke193,0
210 poke194,29
220 poke174,208
230 poke175,31
240 sys62954
250 print"[196]one.":forx=1to1000:nextx:run
260 stop
400 q$=chr$(34):f$="capture.bas"
405 print"[147][144]open15,8,15,"q$"r0:b.hi-res sketch2=b.hires sketch 2"q$":close15"
410 print"load"q$f$q$",8"
420 print"10 s[217]57812"q$"capture.ml"q$",dv,0:p[207]780,.:p[207]781,.:p[207]782,29:s[217]65493"
425 print"11 n$(.)="q$"b.hi-res*"q$":fs=fg:bs=bg:z=6"
430 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
440 print"poke646,1
450 [153]""
460 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
470 [162]:[128]